home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / graphics / fractals / mandelmania 4.1 / rexx / dac3.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  3KB  |  130 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                   Mandelmania - ARexx - Script - File                    */
  3. /*--------------------------------------------------------------------------*/
  4.  
  5. /* This script was sent to me by David Andrew Clayton    */
  6. /* Execution time: 2h 09' 56" (68020, 14 MHz, 320x200x5) */
  7. /* ANIM file size: 2'401'062 Bytes                       */
  8.  
  9. address 'rexx_mandelmania'
  10. options results
  11.  
  12. signal on ERROR 
  13. signal on BREAK_C 
  14. signal on BREAK_D
  15.  
  16. 'getanimfilename'
  17. animname = result
  18.  
  19. if result = 'RESULT' then do
  20.     exit 0
  21.     end
  22.  
  23. 'openanim' animname'.anim'
  24.  
  25. say 'Calculating' animname
  26. say 'Start time'
  27. address command 'date'
  28.  
  29. pic      = 0
  30.  
  31. /*--------------------------------------------------------------------------*/
  32.  
  33. left1   = '-0.3125'
  34. right1  = '-0.125'
  35. bottom1 = '-0.751953125'
  36. top1    = '-0.587890625'
  37. xc1     = '0'
  38. yc1     = '0'
  39. iter1   = 250
  40. type    = 0
  41.  
  42. /*--------------------------------------------------------------------------*/
  43.  
  44. left2   = '-0.466015625'
  45. right2  = '-0.278515625'
  46. bottom2 = '-0.7186279296875'
  47. top2    = '-0.5545654296875'
  48. xc2     = '0'
  49. yc2     = '0'
  50. iter2   = 250
  51.  
  52. steps   = 10
  53.  
  54. do i=pic to pic+steps-1 
  55.     say 'interpolate' i-pic steps
  56.     'interpolate' i-pic steps-1 left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  57.     'saveanim' 
  58.     if i <= 1 then do 
  59.         'savefractal' animname'.'i 
  60.         end 
  61.     end 
  62.  
  63. left1   = left2;
  64. right1  = right2;
  65. bottom1 = bottom2;
  66. top1    = top2;
  67. xc1     = xc2;
  68. yc1     = yc2;
  69. iter1   = iter2;
  70.  
  71. pic = pic+steps
  72.  
  73. /*--------------------------------------------------------------------------*/
  74.  
  75. left2   = '-0.3721723338365555'
  76. right2  = '-0.3721673395633698'
  77. bottom2 = '-0.6481175519875251'
  78. top2    = '-0.6481133165070787'
  79. xc2     = '0'
  80. yc2     = '0'
  81. iter2   = 250
  82.  
  83. steps   = 75
  84.  
  85. do i=pic to pic+steps-1 
  86.     say 'interpolate' i-pic steps
  87.     'interpolate' i-pic steps-1 left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  88.     'saveanim' 
  89.     if i <= 1 then do 
  90.         'savefractal' animname'.'i 
  91.         end 
  92.     end 
  93.  
  94. left1   = left2;
  95. right1  = right2;
  96. bottom1 = bottom2;
  97. top1    = top2;
  98. xc1     = xc2;
  99. yc1     = yc2;
  100. iter1   = iter2;
  101.  
  102. pic = pic+steps
  103.  
  104. /*--------------------------------------------------------------------------*/
  105.  
  106. /* Tail.rexx */
  107.  
  108. ERROR:
  109. BREAK_C:
  110. BREAK_D:
  111. if (RC ~= 0) then do
  112.     say ' 'SIGL '*-*' SOURCELINE(SIGL)
  113.     say 'Error' RC
  114.     end
  115.  
  116. 'openfractal' animname'.0'    /* For looped animations */
  117. 'saveanim'
  118. 'openfractal' animname'.1'
  119. 'saveanim'
  120.  
  121. 'closeanim'
  122.  
  123. address command 'delete' animname'.0 QUIET'
  124. address command 'delete' animname'.1 QUIET'
  125.  
  126. say 'End time'
  127. address command 'date'
  128.  
  129. exit 0
  130.